home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 51 / Amiga Format CD51 (2000-03-10)(Future Publishing)(GB)[!][issue 2000-04].iso / -serious- / programming / e / powerd / source / examples / gradient.d < prev    next >
Text File  |  2000-01-27  |  1KB  |  48 lines
  1. // gradientslider in D!
  2.  
  3. OPT    NOSTD
  4.  
  5. MODULE    'intuition/intuition',
  6.             'intuition/gadgetclass',
  7.             'intuition/icclass',
  8.             'gadgets/gradientslider',
  9.             'utility/tagitem'
  10.  
  11. DEF    w:PTR TO Window,grad:PTR TO Gadget,GradBase
  12.  
  13. PROC main()
  14.     IF w:=OpenWindowTags(NIL,
  15.             WA_Flags,$E,
  16.             WA_IDCMP,$268,
  17.             WA_Width,400,
  18.             WA_Height,80,
  19.             WA_Title,'Gradients in E!',
  20.             TAG_END)
  21.         IF GradBase:=OpenLibrary('gadgets/gradientslider.gadget',39)
  22.             IF grad:=NewObject(NIL,'gradientslider.gadget',
  23.                     GA_Top,20,
  24.                     GA_Left,20,
  25.                     GA_Width,350,
  26.                     GA_Height,30,
  27.                     GA_ID,1,
  28.                     GRAD_PenArray,[0,7,-1]:WORD,
  29.                     GRAD_KnobPixels,20,
  30.                     TAG_END)
  31.                 AddGList(w,grad,-1,-1,NIL)
  32.                 RefreshGList(grad,w,NIL,-1)
  33.                 WaitPort(w.UserPort)
  34.                 RemoveGList(w,grad,-1)
  35.                 DisposeObject(grad)
  36.             ELSE
  37.                 PrintF('Could not create GradientSlider!\n')
  38.             ENDIF
  39.             CloseLibrary(GradBase)
  40.         ELSE
  41.             PrintF('Could not open "gradientslider.gadget"\n')
  42.         ENDIF
  43.         CloseWindow(w)
  44.     ELSE
  45.         PrintF('No Window!\n')
  46.     ENDIF
  47. ENDPROC
  48.